home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / edit / me_cd25.zip / BOBSMUTT.ZIP / MYME.MUT < prev    next >
Text File  |  1992-11-23  |  1KB  |  46 lines
  1.   ;; myme.mut - The ME2 initialization file
  2.   ;; $Source: C:/LIB/MUTT25\RCS\myme.mut $
  3.   ;; $Revision: 1.6 $
  4.   ;; $Date: 1992/11/23 23:36:11 $
  5.   ;; To compile this file: "mc2 -tme2 myme"
  6.   ;; Bob Stocker Public Domain
  7.  
  8. (include me2.h)
  9.  
  10. (include msdoscmd.mut)
  11. (include mytext.mut)
  12. (include pageow.mut)
  13. (include makeback.mut)
  14. (include savebufs.mut)
  15. (include writenf.mut)
  16.  
  17. (defun
  18.   just-one-space { (delete-horizontal-space) (insert-text " ") }
  19. )
  20.  
  21. (defun
  22.   MAIN    ;; and now the init time code
  23.   {
  24.     (bind-to-key "cut-previous-word"        "M-C-?")
  25.     (bind-to-key "cut-previous-word"        "M-F-H")
  26.     (bind-to-key "cut-previous-word"        "M-S-F-H")
  27.     (bind-to-key "delete-horizontal-space"    "M-\\")
  28.     (bind-to-key "delete-previous-character"    "F-H")
  29.     (bind-to-key "delete-previous-character"    "S-F-H")
  30.     (bind-to-key "delete-previous-character"    "C-?")
  31.     (bind-to-key "just-one-space"        "M- ")
  32.     (bind-to-key "mark-and-end"            "M->")
  33.     (bind-to-key "mark-and-home"        "M-<")
  34.     (bind-to-key "msdos-command"        "M-!")
  35.     (bind-to-key "page-other-window"        "M-C-v")
  36.     (bind-to-key "re-query-replace"        "M-%")
  37.     (bind-to-key "save-buffers-and-exit"    "C-xC-c")
  38.     (bind-to-key "save-buffer-with-backup"    "C-xC-s")
  39.     (bind-to-key "twiddle-about-dot"        "C-t")
  40.     (bind-to-key "write-named-file"        "C-xC-w")
  41.     (bind-to-key ""                "C-c")
  42.     (bind-to-key ""                "M-q")
  43.     (set-save-backup-version)
  44.   }
  45. )
  46.